object AddBatchForm: TAddBatchForm Left = 257 Top = 217 ActiveControl = edRuleName BorderStyle = bsDialog Caption = 'Add Rules Batch' ClientHeight = 353 ClientWidth = 492 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Shell Dlg' Font.Style = [] OldCreateOrder = False Position = poOwnerFormCenter OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object Wiz: TDelphiWizard Left = 0 Top = 296 Width = 492 Height = 57 EnableHelp = False NoteBook = Notebook BackCaption = '< &Back' NextCaption = '&Next >' AbortCaption = '&Cancel' ReadyCaption = '&Finish' HelpCaption = '&Help' OnEndClick = WizEndClick OnPageChange = WizPageChange OnPageChanging = WizPageChanging end object Notebook: TNotebook Left = 0 Top = 57 Width = 492 Height = 239 Align = alClient TabOrder = 1 object TPage Left = 0 Top = 0 Caption = 'GENERAL' object rgFilterDirection: TRadioGroup Left = 46 Top = 85 Width = 300 Height = 57 Caption = 'Traffic Direction' Columns = 3 ItemIndex = 2 Items.Strings = ( 'Incoming' 'Outgoing' 'Either') TabOrder = 1 end object rgTransferRate: TGroupBox Left = 45 Top = 149 Width = 300 Height = 76 Caption = 'Transfer Rate Limit' TabOrder = 2 object cmbRate: TComboBox Left = 16 Top = 43 Width = 265 Height = 21 DropDownCount = 12 ItemHeight = 13 TabOrder = 2 end object rbBytes: TRadioButton Left = 94 Top = 17 Width = 66 Height = 17 Caption = 'Bytes/sec' Checked = True TabOrder = 0 TabStop = True OnClick = rbBytesClick end object rbBits: TRadioButton Left = 168 Top = 17 Width = 57 Height = 17 Caption = 'Bit/sec' TabOrder = 1 OnClick = rbBitsClick end object rbQuota: TRadioButton Left = 232 Top = 17 Width = 57 Height = 17 Caption = 'Quota' TabOrder = 3 OnClick = rbQuotaClick end end object GroupBox1: TGroupBox Left = 46 Top = 14 Width = 299 Height = 64 Caption = 'Base Rule Name' TabOrder = 0 object edRuleName: TEdit Left = 11 Top = 28 Width = 274 Height = 21 TabOrder = 0 end end end object TPage Left = 0 Top = 0 Caption = 'OPTIONS' object Label3: TLabel Left = 26 Top = 11 Width = 311 Height = 13 Caption = 'Please select a protocol and a network interface to apply the ru' + 'les' end object gbProtocol: TGroupBox Left = 37 Top = 41 Width = 300 Height = 72 Caption = 'Protocol' TabOrder = 0 object cmbProtocols: TComboBox Left = 16 Top = 30 Width = 265 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 0 Items.Strings = ( 'TCP' 'UDP' 'TCP or UDP') end end object gbInterface: TGroupBox Left = 37 Top = 132 Width = 300 Height = 77 Caption = 'Apply Rules on Interface' TabOrder = 1 object cmbApplyOn: TComboBox Left = 16 Top = 40 Width = 265 Height = 22 Style = csOwnerDrawFixed ItemHeight = 16 ItemIndex = 0 TabOrder = 0 Text = 'Any' OnDrawItem = cmbApplyOnDrawItem Items.Strings = ( 'Any') end end end object TPage Left = 0 Top = 0 Caption = 'IPADDR' object Label2: TLabel Left = 26 Top = 11 Width = 247 Height = 13 Caption = 'The rules will apply to the specified IP address range' end object gbRulesRange: TGroupBox Left = 32 Top = 40 Width = 265 Height = 105 Caption = 'IP Address Range' TabOrder = 0 object lblRangeFrom: TLabel Left = 16 Top = 32 Width = 23 Height = 13 Caption = 'From' end object lblRangeTo: TLabel Left = 16 Top = 64 Width = 13 Height = 13 Caption = 'To' end end object rgSubstTo: TRadioGroup Left = 32 Top = 152 Width = 265 Height = 70 Caption = 'Substitute IP Addresses' Columns = 2 ItemIndex = 0 Items.Strings = ( 'Source' 'Destination') TabOrder = 1 end end object TPage Left = 0 Top = 0 Caption = 'VARIABLE' object lblRules: TLabel Left = 24 Top = 16 Width = 308 Height = 13 Caption = '%u rules will be created with the address and port specified bel' + 'ow' end object gbVarPort: TGroupBox Left = 184 Top = 54 Width = 289 Height = 171 Caption = 'Source Port' TabOrder = 1 object rbVarPortAny: TRadioButton Left = 11 Top = 47 Width = 49 Height = 17 Caption = 'Any' Checked = True TabOrder = 0 TabStop = True OnClick = VarPortChange end object rbVarPortSinglePort: TRadioButton Left = 11 Top = 72 Width = 73 Height = 17 Caption = 'Single port' TabOrder = 1 OnClick = VarPortChange end object rbVarPortRange: TRadioButton Left = 11 Top = 97 Width = 73 Height = 17 Caption = 'Port Range' TabOrder = 2 OnClick = VarPortChange end object rbVarPortList: TRadioButton Left = 11 Top = 122 Width = 73 Height = 17 Caption = 'Port List' TabOrder = 3 OnClick = VarPortChange end object VarIpPortNotebook: TNotebook Left = 113 Top = 41 Width = 129 Height = 99 PageIndex = 3 TabOrder = 4 object TPage Left = 0 Top = 0 Caption = 'SINGLE' object edVarIpSinglePort: TEdit Left = 4 Top = 29 Width = 43 Height = 21 TabOrder = 0 end end object TPage Left = 0 Top = 0 Caption = 'RANGE' object leVarPortFrom: TLabeledEdit Left = 6 Top = 54 Width = 43 Height = 21 EditLabel.Width = 23 EditLabel.Height = 13 EditLabel.Caption = 'From' TabOrder = 0 end object leVarPortTo: TLabeledEdit Left = 61 Top = 54 Width = 44 Height = 21 EditLabel.Width = 13 EditLabel.Height = 13 EditLabel.Caption = 'To' TabOrder = 1 end end object TPage Left = 0 Top = 0 Caption = 'LIST' object lbVarPortList: TListBox Left = 2 Top = 1 Width = 123 Height = 67 ItemHeight = 13 MultiSelect = True TabOrder = 0 end object btnVarIpAddPort: TButton Left = 4 Top = 73 Width = 54 Height = 23 Caption = 'Add' TabOrder = 1 OnClick = btnVarIpAddPortClick end object btnVarIpDelPort: TButton Left = 67 Top = 73 Width = 56 Height = 23 Caption = 'Remove' TabOrder = 2 OnClick = btnVarIpDelPortClick end end object TPage Left = 0 Top = 0 Caption = 'EMPTY' end end end object gbVarAddr: TGroupBox Left = 21 Top = 54 Width = 148 Height = 171 Caption = 'Source Address' TabOrder = 0 object lbVarAddr: TListBox Left = 12 Top = 27 Width = 123 Height = 132 ItemHeight = 13 TabOrder = 0 end end end object TPage Left = 0 Top = 0 Caption = 'STATICIP' object lblStaticIp: TLabel Left = 16 Top = 16 Width = 133 Height = 13 Caption = 'Please specify a %s address' end object gbStaticIpAddr: TGroupBox Left = 21 Top = 54 Width = 329 Height = 171 Caption = '%s IP Address' TabOrder = 0 object rbStaticMyComputer: TRadioButton Left = 11 Top = 27 Width = 113 Height = 17 Caption = 'Local host' TabOrder = 0 OnClick = StaticUpdateControls end object rbStaticIpAddr: TRadioButton Left = 11 Top = 80 Width = 113 Height = 17 Caption = 'Single IP Address' TabOrder = 1 OnClick = StaticUpdateControls end object rbStaticIpRange: TRadioButton Left = 11 Top = 108 Width = 113 Height = 17 Caption = 'Whole IP Range' TabOrder = 2 OnClick = StaticUpdateControls end object rbStaticIpAny: TRadioButton Left = 11 Top = 136 Width = 113 Height = 17 Caption = 'Any IP Address' Checked = True TabOrder = 3 TabStop = True OnClick = StaticUpdateControls end object rbStaticMacAddress: TRadioButton Left = 11 Top = 54 Width = 113 Height = 17 Caption = 'MAC Address' TabOrder = 4 OnClick = StaticUpdateControls end end end object TPage Left = 0 Top = 0 Caption = 'STATICPORT' object lblStaticPort: TLabel Left = 16 Top = 16 Width = 105 Height = 13 Caption = 'Please specify %s port' end object gbStaticIpPort: TGroupBox Left = 21 Top = 54 Width = 329 Height = 171 Caption = '%s Port' TabOrder = 0 object rbStaticPortAny: TRadioButton Left = 11 Top = 43 Width = 49 Height = 17 Caption = 'Any' Checked = True TabOrder = 0 TabStop = True OnClick = StaticPortChange end object rbStaticPortSinglePort: TRadioButton Left = 11 Top = 68 Width = 73 Height = 17 Caption = 'Single port' TabOrder = 1 OnClick = StaticPortChange end object rbStaticPortRange: TRadioButton Left = 11 Top = 93 Width = 73 Height = 17 Caption = 'Port Range' TabOrder = 2 OnClick = StaticPortChange end object rbStaticPortList: TRadioButton Left = 11 Top = 118 Width = 73 Height = 17 Caption = 'Port List' TabOrder = 3 OnClick = StaticPortChange end object StaticIpPortNotebook: TNotebook Left = 185 Top = 37 Width = 129 Height = 99 PageIndex = 3 TabOrder = 4 object TPage Left = 0 Top = 0 Caption = 'SINGLE' object edStaticIpSinglePort: TEdit Left = 4 Top = 29 Width = 43 Height = 21 TabOrder = 0 end end object TPage Left = 0 Top = 0 Caption = 'RANGE' object leStaticPortFrom: TLabeledEdit Left = 6 Top = 54 Width = 43 Height = 21 EditLabel.Width = 23 EditLabel.Height = 13 EditLabel.Caption = 'From' TabOrder = 0 end object leStaticPortTo: TLabeledEdit Left = 61 Top = 54 Width = 44 Height = 21 EditLabel.Width = 13 EditLabel.Height = 13 EditLabel.Caption = 'To' TabOrder = 1 end end object TPage Left = 0 Top = 0 Caption = 'LIST' object lbStaticPortList: TListBox Left = 2 Top = 1 Width = 123 Height = 67 ItemHeight = 13 MultiSelect = True TabOrder = 0 end object btnStaticIpAddPort: TButton Left = 4 Top = 73 Width = 54 Height = 23 Caption = 'Add' TabOrder = 1 OnClick = btnStaticIpAddPortClick end object btnStaticIpDelPort: TButton Left = 67 Top = 73 Width = 56 Height = 23 Caption = 'Remove' TabOrder = 2 OnClick = btnStaticIpDelPortClick end end object TPage Left = 0 Top = 0 Caption = 'EMPTY' end end end end object TPage Left = 0 Top = 0 Caption = 'ADVANCED' object Label4: TLabel Left = 24 Top = 16 Width = 145 Height = 13 Caption = 'Specify advanced rule settings' end object gbTimeTable: TGroupBox Left = 16 Top = 45 Width = 300 Height = 89 Caption = 'Timetable' TabOrder = 0 object cbUseTimeTable: TCheckBox Left = 18 Top = 24 Width = 209 Height = 17 Caption = 'Use the following schedule' TabOrder = 0 end object cmbTimeTables: TComboBox Left = 16 Top = 53 Width = 269 Height = 21 Style = csDropDownList ItemHeight = 0 TabOrder = 1 end end end object TPage Left = 0 Top = 0 Caption = 'PREVIEW' object Label1: TLabel Left = 11 Top = 218 Width = 356 Height = 13 Caption = 'Rules preview. Click the Apply button to create the rules or Fin' + 'ish to cancel.' end object VList: TListView Left = 7 Top = 6 Width = 477 Height = 197 Columns = < item Caption = 'Rule Name' Width = 80 end item Caption = 'Direct.' Width = 45 end item Caption = 'Rate Limit' Width = 60 end item Caption = 'Proto' Width = 38 end item Caption = 'Source' Width = 95 end item Caption = 'Destination' Width = 95 end item Caption = 'Interface' Width = 40 end> OwnerData = True ReadOnly = True RowSelect = True SmallImages = MainForm.ImageList TabOrder = 0 ViewStyle = vsReport OnData = VListData end object btnApply: TButton Left = 409 Top = 213 Width = 75 Height = 23 Caption = '&Apply' TabOrder = 1 OnClick = btnApplyClick end end end object PanelTop: TPanel Left = 0 Top = 0 Width = 492 Height = 57 Align = alTop Alignment = taLeftJustify BevelOuter = bvNone Caption = ' This wizard allows you to add a few similar rules within a' + ' single action' Color = clWhite TabOrder = 2 object ImageLogo: TImage Left = 437 Top = 0 Width = 55 Height = 53 Align = alRight AutoSize = True Picture.Data = {} end object Bevel1: TBevel Left = 0 Top = 53 Width = 492 Height = 4 Align = alBottom Shape = bsBottomLine end end end